function est = estimador(seq, bins)
	if( bins <= 0 || length(seq) < 2)
		return;
	end

	ancho = (max(seq)-min(seq))/bins;

	min = min(seq);

	marcas_clase = 0;
	%Computo las marcas de clase.
	for i = 1:bins
		marcas_clase(i) = min+ancho*(i-1)+ancho/2;
	end

	occurencias = 0;
	ocurrencias(bins) = 0;
	%Computo las ocurrencias de cada clase
	for i = 1:length(seq)
		bin = floor((seq(i)-min)*10/(ancho*bins))+1;
		if( bin > bins )
			bin = bins;
		end	
		ocurrencias(bin)++;
	end

	est = 0;
	for i=1:bins
		est = est + ocurrencias(i)*marcas_clase(i);
	end

	est = est / length(seq);
endfunction
